home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / jaz_clib.arc / JZKEYSTS.C < prev    next >
Text File  |  1989-04-09  |  670b  |  21 lines
  1. #include <jaz.h>
  2. /*
  3. ┌────────────────────────────────────────────────────────────────────────────┐
  4. │jzkeysts.c                                     │
  5. │Return the union KEYSTATE as defined in jaz.h                     │
  6. │This defines the various shift states of the machine.                 │
  7. │Warning, this routine is very highly IBM specific. Contact me for porting   │
  8. │to other machines.                                 │
  9. │-Jaz                                         │
  10. │                                         │
  11. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950              │
  12. └────────────────────────────────────────────────────────────────────────────┘
  13. */
  14. jzkeysts(fkey)
  15. KEYSTATE *fkey;
  16. {
  17.   unsigned int wkey;
  18.   wkey = MEMW(0x40,0x17);
  19.   memcpy(fkey,&wkey,2);
  20. }
  21.